Option Explicit
Sub F_Sample017()
    'ոF_Data.mdb F_Tbl01
    Dim myCnc1  As String
    Dim myCnc2  As String
    Dim myCnc3  As String
    Dim myCmd  As String
    Dim myFileName As String
    Dim myTblName As String
    Worksheets.Add
    myFileName = "F_Data.mdb"			'ŪJɮ
    myTblName = "F_Tbl01"        		'ŪJ
    myCnc1 = "ODBC;"
    myCnc2 = "DBQ=" & ThisWorkbook.Path & "\" & myFileName & ";"
    'wXʵ{
    myCnc3 = "Driver={Microsoft Access Driver (*.mdb)};"
    'myCnc3 = "Driver={Driver do Microsoft Access (*.mdb)};"
    'myCnc3 = "Driver={Microsoft Access-Treiber (*.mdb)};"
    'HSQLӫwŪJ
    myCmd = "SELECT * FROM " & myTblName
    With ActiveSheet.QueryTables.Add _
        (Connection:=myCnc1 & myCnc2 & myCnc3, Destination:=Range("A1"))
        .CommandText = myCmd
        .Refresh BackgroundQuery:=False
    End With
End Sub
